% V20210224 - 6.1 GW_OPEN_COLLAPSIBLE

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Collapsible Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

% Start a collapsible group.
GW_OPEN_COLLAPSIBLE(p, "Tap this line to show or hide the controls")

% The following 2 controls will be hidden or shown.
GW_ADD_BUTTON(p, "I'm a simple button", "")
GW_ADD_TEXTBOX(p, "I'm a textbox")

% End of the group.
GW_CLOSE_COLLAPSIBLE(p)

% The following control will never be hidden.
GW_ADD_TEXTBOX(p, "This textbox does not collapse.")

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Collapsible example."